home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO001.dsk / FIN / LOAN.PRINCIPAL.bas < prev    next >
BASIC Source File  |  2012-02-16  |  839b  |  25 lines
  1. 10  PRINT "PRINCIPAL ON A LOAN"
  2. 20  PRINT 
  3. 29  REM  - STATEMENTS 30 TO 100 REQUEST USER INPUT
  4. 30  PRINT "REGULAR PAYMENT";
  5. 40  INPUT R
  6. 50  PRINT "TERM IN YEAR, MONTHS";
  7. 60  INPUT Y0,M
  8. 64  REM  - CALCULATE YEARS FROM YEARS AND MONTHS
  9. 65 Y = (12 *Y0 +M)/12
  10. 70  PRINT "ANNUAL INTEREST RATE";
  11. 80  INPUT I
  12. 90  PRINT "NUMBER OF PAYMENTS PER YEAR";
  13. 100  INPUT N
  14. 108  REM  - CALCULATE AMOUNT OF PRINCIPAL BY FORMULA;
  15. 109  REM  - INTEREST CONVERTED FROM PERCENT TO DECIMAL FOR CALCULATIONS
  16. 110 P = R *N *(1 -1/((I/100)/N +1) ^(N *Y))/(I/100)
  17. 119  REM  - ROUND OFF TO NEAREST CENT, PRINT
  18. 120  PRINT "PRINCIPAL = $"; INT(P *100 +.5)/100
  19. 129  REM  - PRINT BLANK LINE TO SEPARATE DATA FROM QUESTION
  20. 130  PRINT 
  21. 139  REM  - RESTART OR END PROGRAM?
  22. 140  PRINT "MORE DATA? (1=YES, 0=NO)";
  23. 150  INPUT X
  24. 160  IF X = 1  THEN 20
  25. 170  PRINT "<CTRL-D>RUN HELLO"